home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 27 / CDROM27.iso / share / progra / mai / Drives, determining type < prev    next >
Encoding:
Text File  |  1997-07-15  |  896 b   |  29 lines
  1. Description: Determines drive type by letter designation
  2.  
  3. 'Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _
  4.  (ByVal nDrive As String) As Long
  5. 'Const DRIVE_REMOVABLE = 2
  6. 'Const DRIVE_REMOTE = 4
  7. 'Const DRIVE_RAMDISK = 6
  8. 'Const DRIVE_FIXED = 3
  9. 'Const DRIVE_CDROM = 5
  10.  
  11. 'syntax: MyDriveType("a:") or MyDriveType(dir1.path) etc..,
  12. 'Function MyDriveType(ByVal DR As String) As String
  13. DR = Left$(DR, 2)
  14. x% = GetDriveType(DR)
  15. Select Case x%
  16.     Case DRIVE_REMOVABLE
  17.         MyDriveType = "REMOVABLE    " & DR
  18.     Case DRIVE_FIXED
  19.         MyDriveType = "FIXED        " & DR
  20.     Case DRIVE_REMOTE
  21.         MyDriveType = "REMOTE       " & DR
  22.     Case DRIVE_RAMDISK
  23.         MyDriveType = "RAMDISK      " & DR
  24.     Case DRIVE_CDROM
  25.         MyDriveType = "CDROM        " & DR
  26.     Case Else
  27.         MyDriveType = "UNKNOWN      " & DR
  28. End Select
  29. 'End Function